<% Dim oConn,rs,oConn1,rd Dim PaginaActual Dim PaginasTotales Dim TamPagina dim c1,c2,c3,c4 dim t1,t2,t3,t4 dim vnom ,vape ,vlic ,vpas ,vclu ,vano ,vcor ,vsex ,vc1,vc2,vc3,vc4, tipo_op dim queorden, tsql,quecarrera dim cont dim cate dim contcat, totcat queorden=request.querystring("orden") quecarrera=request.querystring("carrera") if queorden>0 and queorden<101 then set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oconn.Provider="Microsoft.Jet.OLEDB.4.0" oconn.Open(Server.Mappath("femecv.mdb")) tsql= "SELECT * FROM corredor where (i" & quecarrera & "=-1) and (supervisor=0) order by categoriatx ;" rs.Open tsql, oConn cont=0 cate=" " contcat=0 totcat=0 rs.movefirst if quecarrera=1 then %>

CAMPEONATO DE LIGA DE LA COMUNITAT VALENCIANA 2008 – 1ª ELDA

<%else if quecarrera=2 then %>

CAMPEONATO DE LIGA DE LA COMUNITAT VALENCIANA 2008 – 1ª LA VALL D'UIXO

<%else if quecarrera=3 then %>

CAMPEONATO DE LIGA DE LA COMUNITAT VALENCIANA 2008 – 1ª CASTELLON

<%else if quecarrera=4 then %>

CAMPEONATO ABSOLUTO DE LA COMUNITAT VALENCIANA 2008 – 1ª BUSSOT

<%end if end if end if end if %>
<%do until rs.eof if cate<>rs("categoriatx") then if cate<>" " then %> <% end if cate=rs("categoriatx") contcat=1 totcat=totcat +1 else contcat=contcat + 1 totcat=totcat+1 end if rs.movenext loop if cate<>" " then %> <% end if%>

INSCRITOS POR CATEGORIA

inscritos en la categoria: <%=cate %>

<%=contcat%>

inscritos en la categoria: <%=cate %>

<%=contcat%>

Nš total inscritos

<%=totcat%>


<% //carga datos corredor rs.Close if queorden=1 then tsql= "SELECT * FROM corredor where (i" & quecarrera & "=-1) and (supervisor=0) order by cognoms, noms ;" else if queorden=2 then tsql= "SELECT * FROM corredor where (i" & quecarrera & "=-1) and (supervisor=0) order by club ;" else if queorden=3 then tsql= "SELECT * FROM corredor where (i" & quecarrera & "=-1) and (supervisor=0) order by sexe, cognoms, noms ;" else if queorden=4 then tsql= "SELECT * FROM corredor where (i" & quecarrera & "=-1) and (supervisor=0) order by ano, cognoms, noms;" else if queorden=5 then tsql= "SELECT * FROM corredor where (i" & quecarrera & "=-1) and (supervisor=0) order by categoriatx, sexe, cognoms, noms ;" end if end if end if end if end if rs.Open tsql, oConn do until rs.eof %> <% rs.movenext loop rs.close set rs=nothing %>






NOMBRE Y APELLIDOS

CLUB DEPORTIVO

SEXO

AŅO

CATEGORIA

<%=rs.fields("cognoms") & ", " & rs.fields("noms") %>

<%=rs.fields("club")%>

<% IF rs.fields("SEXe") THEN %> FEMENINO <% ELSE %> MASCULINO <% END IF %>

<%=rs.fields("ano")%>

<%=rs.fields("categoriatx")%>


<% else %>

NO TIENE PERMISO PARA VISITAR ESTA PAGINA!!!!

<%end if%>